home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs25.d81 / salmaker.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  32 lines
  1. 100 PRINT CHR$(147):PRINT " SINGALONG SONG LIBRARY MAKER"
  2. 110 PRINT " BY CRAIG CHAMBERLAIN 6/25/86":PRINT:SP=783
  3. 130 RE=3262:WR=3307:BA=3377:BE=4435:MA=PEEK(49)+256*PEEK(50)+500
  4. 300 PRINT " THIS PROGRAM WRITES TO DISK THE
  5. 305 [153] " LIBRARY FILE FOR ONE SINGALONG SONG":[153]
  6. 310 F$[178]"":[133] " NAME OF SINGALONG SONG";F$:[139] F$[178]"" [176] [195](F$)[177]12 [137] 310
  7. 320 [153]:[153] " READING " F$ ".MUS"
  8. 325 [159] 2,8,15,"I0:":[132]2,A,B$,C,D:[139] A [137] 710
  9. 330 [159] 1,8,2,F$[170]".MUS,R,P":[132]2,A,B$,C,D:[139] A [137] 710
  10. 340 [158] RE,MA:[139] [194](SP)[175]1 [137] 700
  11. 350 WA[178][194](251)[170]256[172][194](252):ML[178]WA[171]MA:[160] 1:[132]2,A,B$,C,D:[139] A [137] 710
  12. 360 [153] " READING " F$ ".WDS"
  13. 370 [159] 1,8,2,F$[170]".WDS,R,P":[132]2,A,B$,C,D:[139] A [137] 710
  14. 380 [158] RE,WA:[139] [194](SP)[175]1 [137] 700
  15. 390 EA[178][194](251)[170]256[172][194](252):WL[178]EA[171]WA:[160] 1:[132]2,A,B$,C,D:[139] A [137] 710
  16. 500 [153]:[153] " INSERT A DISK TO RECEIVE THE
  17. 505 PRINT " LIBRARY FILE AND PRESS ANY KEY":PRINT:POKE 198,0:WAIT 198,15:GET G$
  18. 520 PRINT " WRITING " F$ ".SAL"
  19. 525 PRINT#2,"S0:"+F$+".SAL":INPUT#2,A,B$,C,D:IF A>2 GOTO 710
  20. 530 OPEN 1,8,2,F$+".SAL,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
  21. 540 SYS WR,BA,BE:IF PEEK(SP)AND1 GOTO 700
  22. 550 SYS WR,WR,BA:IF PEEK(SP)AND1 GOTO 700
  23. 560 PRINT#1,CHR$(LEN(F$)) F$;
  24. 570 PRINT#1,CHR$(ML-256*INT(ML/256)) CHR$(ML/256);
  25. 575 SYS WR,MA,WA:IF PEEK(SP)AND1 GOTO 700
  26. 580 PRINT#1,CHR$(WL-256*INT(WL/256)) CHR$(WL/256);
  27. 585 SYS WR,WA,EA:IF PEEK(SP)AND1 GOTO 700
  28. 590 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
  29. 595 CLOSE 2:END
  30. 700 INPUT#2,A,B$,C,D
  31. 710 PRINT:PRINT " ERROR: " B$:CLOSE 1:CLOSE 2:END
  32.